(define divideDefine
  (native_function "  
    Proc.new do |arguments, interpreter|
      if arguments.count == 2
        arg1 = arguments[0]
        arg2 = interpreter.evaluate(arguments[1])
        if interpreter.current_environment.find(arg1)
          interpreter.current_environment.define(arg1, interpreter.current_environment.find(arg1) / arg2.to_i)
        else
          raise 'Cannot set unabound variable!' 
        end
      else
        raise 'addDefine function takes 2 arguments.'
      end
    end
  "))

(define /= divideDefine)
